; Music of Great Gurianos (1987) (Hit Pak) (David Perry ?)
; Ripped by Megachur the 18/11/2006

	write "GREATGUR.BIN"

music_date_rip	equ &12b6
music_adr	equ &8000
first_theme	equ 0
last_theme	equ 1

	read "music_header_v1_0.asm"
	
.l8007 equ $ + 7
.l8006 equ $ + 6
.l8005 equ $ + 5
.l8004 equ $ + 4
.l8003 equ $ + 3
.l8002 equ $ + 2
.l8001 equ $ + 1
.l8000
	db #00,#00,#00,#00,#01,#00,#00,#02
.l800f equ $ + 7
.l800e equ $ + 6
.l800d equ $ + 5
.l800c equ $ + 4
.l800a equ $ + 2
.l8008
	db #00,#00,#00,#00,#00,#00,#00,#00
.l8016 equ $ + 6
.l8014 equ $ + 4
.l8013 equ $ + 3
.l8012 equ $ + 2
.l8011 equ $ + 1
.l8010
	db #01,#00,#00,#02,#00,#00,#00,#00
.l801f equ $ + 7
.l801e equ $ + 6
.l801d equ $ + 5
.l801c equ $ + 4
.l801b equ $ + 3
.l801a equ $ + 2
.l8019 equ $ + 1
.l8018
	db #0f,#00,#00,#00,#01,#00,#00,#02
.l8027 equ $ + 7
.l8026 equ $ + 6
.l8025 equ $ + 5
.l8024 equ $ + 4
.l8022 equ $ + 2
.l8020
	db #00,#00,#00,#00,#00,#00,#00,#00
.l802f equ $ + 7
.l802e equ $ + 6
.l802d equ $ + 5
.l802c equ $ + 4
.l802b equ $ + 3
.l802a equ $ + 2
.l8028
	db #00,#00,#0a,#38,#00,#01,#01,#02
.l8037 equ $ + 7
.l8036 equ $ + 6
.l8034 equ $ + 4
.l8033 equ $ + 3
.l8032 equ $ + 2
.l8031 equ $ + 1
.l8030
	db #01,#01,#02,#01
	dw l8037
	db #00,#0e,#0d,#0c,#0b,#0b,#0b,#0b
	db #0a,#0a,#0a,#0a,#09,#09,#09,#09
	db #08,#08,#08,#08,#07,#07,#07,#06
	db #06,#06,#05,#05,#05,#04,#04,#04
	db #03,#03,#03,#03,#03,#03,#03,#03
	db #03,#03,#03,#02,#02,#02,#02,#02
	db #ff
.l8067
	db #0c,#0b,#0a,#09,#09,#09,#09,#09
	db #09,#08,#08,#08,#08,#08,#08,#07
	db #07,#07,#06,#06,#06,#05,#05,#05
	db #05,#04,#04,#04,#04,#04,#03,#03
	db #03,#02,#01,#01,#01,#01,#01,#01
	db #01,#01,#00,#ff
.l8093
	db #0e,#0f,#0e,#0d,#0c,#0b,#0b,#0b
	db #0a,#0a,#0a,#0a,#0a,#0a,#09,#08
	db #08,#08,#08,#07,#06,#06,#05,#05
	db #04,#04,#03,#03,#02,#02,#02,#02
	db #02,#01,#01,#01,#02,#02,#02,#01
	db #01,#01,#02,#02,#02,#ff
.l80c1
	db #02
.l80c2
	db #01
.l80c3
	dw l8067
.l80c5
	db #00
.l80c6
	db #02
.l80c7
	db #01
.l80c8
	dw l8093
.l80ca
	db #00
.l80cb
	ld a,(l8030)
	and #01
	jp z,l80e0
	ld d,#00
	ld e,#08
	jp z,l80e0
	ld hl,l8000
	call l8115
.l80e0
	ld a,(l8030)
	and #02
	jp z,l80f2
	ld d,#02
	ld e,#09
	ld hl,l800c
	call l8115
.l80f2
	ld a,(l8030)
	and #04
	jp z,l8104
	ld d,#04
	ld e,#0a
	ld hl,l8018
	call l8115
.l8104
	ld a,(l802b)
	ld c,#07
	call l812a
	ld a,(l802a)
	ld c,#06
	call l812a
	ret
.l8115
	ld a,(hl)
	inc hl
	ld c,e
	inc e
	call l812a
	ld a,(hl)
	inc hl
	ld c,d
	inc d
	call l812a
	ld a,(hl)
	ld c,d
	inc d
	call l812a
	ret
.l812a
	push af
	push bc
	di
	ld b,a
	ld a,c
	ld c,b
	ld b,#f4
	out (c),a
	ld a,#c0
	ld b,#f6
	out (c),a
	xor a
	out (c),a
	ld b,#f4
	out (c),c
	ld bc,#f680
	out (c),c
	out (c),a
	pop bc
	pop af
	ei
	ret
.l814c
	nop
.l814d
	nop
.l814e
	ld d,a
	and #0f
	sla a
	ld b,#00
	ld c,a
	ld ix,l81a0
	add ix,bc
	ld a,(ix+#00)
	ld (l814c),a
	ld a,(ix+#01)
	ld (l814d),a
	ld a,d
	and #70
	srl a
	srl a
	srl a
	srl a
	cp #05
	jr z,l819f
	jr c,l818f
	or a
	ld hl,l814c
	srl (hl)
	inc hl
	rr (hl)
	cp #06
	jr z,l819f
	or a
	dec hl
	srl (hl)
	inc hl
	rr (hl)
	jr l819f
.l818f
	ld b,a
	ld a,#05
	sub b
	ld b,a
.l8194
	ld hl,l814d
	sla (hl)
	dec hl
	rl (hl)
	inc hl
	djnz l8194
.l819f
	ret
.l81a0
	db #00,#00,#00,#77,#00,#71,#00,#6a
	db #00,#64,#00,#5f,#00,#59,#00,#54
	db #00,#50,#00,#4b,#00,#47,#00,#43
	db #00,#3f,#04,#03,#02,#01,#00
.l81bf
	ld a,(l8030)
	and #01
	ret z
	ld a,(l8033)
	dec a
	ld (l8033),a
	cp #00
	ret nz
	ld a,(l8032)
	ld (l8033),a
	ld hl,(l8034)
	ld a,(hl)
	cp #ff
	ret z
	ld (l8000),a
	inc hl
	ld (l8034),hl
	ld c,#08
	call l812a
	ret
.l81e9
	ld a,(l8030)
	and #02
	ret z
	ld a,(l80c2)
	dec a
	ld (l80c2),a
	cp #00
	ret nz
	ld a,(l80c1)
	ld (l80c2),a
	ld hl,(l80c3)
	ld a,(hl)
	cp #ff
	ret z
	ld (l800c),a
	inc hl
	ld (l80c3),hl
	ld c,#09
	call l812a
	ret
.l8213
	ld a,(l8030)
	and #04
	ret z
	ld a,(l801b)
	cp #00
	ret nz
	ld a,(l80c7)
	dec a
	ld (l80c7),a
	cp #00
	ret nz
	ld a,(l80c6)
	ld (l80c7),a
	ld hl,(l80c8)
	ld a,(hl)
	cp #ff
	ret z
	ld (l8018),a
	inc hl
	ld (l80c8),hl
	ld c,#0a
	call l812a
	ret
;
.play_music
;
	push af
	ld a,(l802d)
	dec a
	ld (l802d),a
	cp #00
	jr z,l8251
	pop af
	ret
.l8251
	push bc
	push de
	push hl
	push ix
	push iy
	ld a,#01
	ld (l802d),a
	call l8272
	call l81bf
	call l81e9
	call l8213
	pop iy
	pop ix
	pop hl
	pop de
	pop bc
	pop af
	ret
.l8272
	ld a,(l802e)
	dec a
	ld (l802e),a
	ret nz
	ld a,(l802f)
	ld (l802e),a
.l8280
	ld a,(l8031)
	and #01
	jp z,l82ec
	ld a,(l8003)
	cp #00
	jp nz,l853d
	ld a,(l8004)
	dec a
	ld (l8004),a
	cp #00
	jr z,l82ad
	ld hl,l8007
	cp (hl)
	jp nz,l82ec
	jp nc,l82ec
	ld a,#00
	ld (l8036),a
	jp l82ec
.l82ad
	ld hl,(l8005)
	ld a,(hl)
	cp #00
	jp z,l83d1
	cp #c8
	jp c,l82c3
	cp #f0
	jp c,l8482
	jp l853d
.l82c3
	ld (l8004),a
	inc hl
	ld a,(hl)
	inc hl
	ld (l8005),hl
	cp #00
	jp nz,l82d7
	call l8455
	jp l82ec
.l82d7
	call l814e
	ld a,(l814c)
	ld (l8002),a
	ld a,(l814d)
	ld (l8001),a
	ld hl,l8037
	ld (l8034),hl
.l82ec
	ld a,(l8031)
	and #02
	jp z,l8358
	ld a,(l800f)
	cp #00
	jp nz,l8540
	ld a,(l8010)
	dec a
	ld (l8010),a
	cp #00
	jr z,l8319
	ld hl,l8013
	cp (hl)
	jp nz,l8358
	jp nc,l8358
	ld a,#00
	ld (l80c5),a
	jp l8358
.l8319
	ld hl,(l8011)
	ld a,(hl)
	cp #00
	jp z,l83fd
	cp #c8
	jp c,l832f
	cp #f0
	jp c,l84d1
	jp l8540
.l832f
	ld (l8010),a
	inc hl
	ld a,(hl)
	inc hl
	ld (l8011),hl
	cp #00
	jp nz,l8343
	call l8464
	jp l8358
.l8343
	call l814e
	ld a,(l814c)
	ld (l800e),a
	ld a,(l814d)
	ld (l800d),a
	ld hl,l8067
	ld (l80c3),hl
.l8358
	ld a,(l8031)
	and #04
	jp z,l83cd
	ld a,(l801b)
	cp #00
	jp z,l836e
	call l8543
	jp l83cd
.l836e
	ld a,(l801c)
	dec a
	ld (l801c),a
	cp #00
	jr z,l838b
	ld hl,l801f
	cp (hl)
	jp nz,l83cd
	jp nc,l83cd
	ld a,#00
	ld (l80ca),a
	jp l83cd
.l838b
	ld hl,(l801d)
	ld a,(hl)
	cp #00
	jp z,l8429
	cp #c8
	jp c,l83a4
	cp #f0
	jp c,l8501
	call l8543
	jp l83cd
.l83a4
	ld (l801c),a
	inc hl
	ld a,(hl)
	inc hl
	ld (l801d),hl
	cp #00
	jp nz,l83b8
	call l8473
	jp l83cd
.l83b8
	call l814e
	ld a,(l814c)
	ld (l801a),a
	ld a,(l814d)
	ld (l8019),a
	ld hl,l8093
	ld (l80c8),hl
.l83cd
	call l80cb
	ret
.l83d1
	ld hl,(l8008)
	ld a,(hl)
	cp #00
	jr nz,l83e1
	inc hl
	ld a,(hl)
	cp #00
	jr z,l83f5
	dec hl
	ld a,(hl)
.l83e1
	ld (l8005),a
	inc hl
	ld a,(hl)
	ld (l8006),a
	inc hl
	ld (l8008),hl
	ld a,#01
	ld (l8004),a
	jp l8280
.l83f5
	ld hl,(l800a)
	ld (l8008),hl
	jr l83d1
.l83fd
	ld hl,(l8014)
	ld a,(hl)
	cp #00
	jr nz,l840d
	inc hl
	ld a,(hl)
	cp #00
	jr z,l8421
	dec hl
	ld a,(hl)
.l840d
	ld (l8011),a
	inc hl
	ld a,(hl)
	ld (l8012),a
	inc hl
	ld (l8014),hl
	ld a,#01
	ld (l8010),a
	jp l82ec
.l8421
	ld hl,(l8016)
	ld (l8014),hl
	jr l83fd
.l8429
	ld hl,(l8020)
	ld a,(hl)
	cp #00
	jr nz,l8439
	inc hl
	ld a,(hl)
	cp #00
	jr z,l844d
	dec hl
	ld a,(hl)
.l8439
	ld (l801d),a
	inc hl
	ld a,(hl)
	ld (l801e),a
	inc hl
	ld (l8020),hl
	ld a,#01
	ld (l801c),a
	jp l8358
.l844d
	ld hl,(l8028)
	ld (l8020),hl
	jr l8429
.l8455
	ld a,(l8030)
	and #01
	ret z
	ld a,#00
	ld (l8002),a
	ld (l8001),a
	ret
.l8464
	ld a,(l8030)
	and #02
	ret z
	ld a,#00
	ld (l800e),a
	ld (l800d),a
	ret
.l8473
	ld a,(l8030)
	and #04
	ret z
	ld a,#00
	ld (l801a),a
	ld (l8019),a
	ret
.l8482
	cp #c8
	jr nz,l848e
	inc hl
	ld a,(hl)
	ld (l8000),a
	jp l84c5
.l848e
	cp #da
	jr nz,l849a
	inc hl
	ld a,(hl)
	ld (l8007),a
	jp l84c5
.l849a
	cp #de
	jp nz,l84aa
	ld a,#00
	ld (l8030),a
	ld (l8031),a
	jp l84c5
.l84aa
	cp #c9
	jr nz,l84b9
	inc hl
	ld a,(hl)
	ld (l802f),a
	ld (l802e),a
	jp l84c5
.l84b9
	cp #ca
	jr nz,l84c5
	inc hl
	ld a,(hl)
	ld (l8032),a
.l84c3 equ $ + 1
	ld (l8033),a
.l84c5
	inc hl
	ld (l8005),hl
	ld a,#01
	ld (l8004),a
	jp l8280
.l84d1
	cp #c8
	jr nz,l84dd
	inc hl
	ld a,(hl)
	ld (l800c),a
	jp l84f5
.l84dd
	cp #da
	jr nz,l84e9
	inc hl
	ld a,(hl)
	ld (l8013),a
	jp l84f5
.l84e9
	cp #ca
	jr nz,l84f5
	inc hl
	ld a,(hl)
	ld (l80c1),a
	ld (l80c2),a
.l84f5
	inc hl
	ld (l8011),hl
	ld a,#01
	ld (l8010),a
	jp l82ec
.l8501
	cp #c8
	jr nz,l850d
	inc hl
	ld a,(hl)
	ld (l8018),a
	jp l8525
.l850d
	cp #da
	jr nz,l8519
	inc hl
	ld a,(hl)
	ld (l801f),a
	jp l8525
.l8519
	cp #ca
	jr nz,l8525
	inc hl
	ld a,(hl)
	ld (l80c6),a
	ld (l80c7),a
.l8525
	inc hl
	ld (l801d),hl
	ld a,#01
	ld (l801c),a
	jp l8358
.l8531
	dw l85fd,l85fd,l85fd,l85fd
	dw l85fd,l8630
.l853d
	jp l8280
.l8540
	jp l82ec
.l8543
	ld (l8025),a
	ld a,(l8030)
	and #04
	ret z
	ld a,(l801b)
	cp #00
	jp nz,l85aa
	inc hl
	ld a,(hl)
	ld (l8024),a
	inc hl
	ld (l801d),hl
	ld a,(l8025)
	ld (l801b),a
	sub #f0
	sla a
	ld hl,l8531
	ld b,#00
	ld c,a
	add hl,bc
	ld b,h
	ld c,l
	ld a,(bc)
	ld l,a
	inc bc
	ld a,(bc)
	ld h,a
	ld a,(l802b)
	ld (l802c),a
	ld a,(l8018)
	ld (l8027),a
	ld a,(hl)
	cp #00
	jp z,l8598
	ld b,#df
	ld a,(l802b)
	and b
	ld (l802b),a
	ld a,#01
	ld (l8026),a
	jp l85a6
.l8598
	ld b,#fb
	ld a,(l802b)
	and b
	ld (l802b),a
	ld a,#00
	ld (l8026),a
.l85a6
	inc hl
	ld (l8022),hl
.l85aa
	ld a,(l8024)
	dec a
	ld (l8024),a
	cp #00
	jp z,l85dd
	ld hl,(l8022)
	ld a,(hl)
	ld (l8018),a
	inc hl
	ld a,(l8026)
	cp #00
	jp z,l85cd
	ld a,(hl)
	ld (l802a),a
	jp l85d5
.l85cd
	ld a,(hl)
	ld (l801a),a
	inc hl
	ld (l8019),a
.l85d5
	inc hl
	ld (l8022),hl
	call l80cb
	ret
.l85dd
	ld a,(l802c)
	ld (l802b),a
	ld a,(l8027)
	ld (l8018),a
	ld a,#01
	ld (l801c),a
	ld a,#00
	ld (l801b),a
	ld (l801a),a
	ld (l8019),a
	call l80cb
	ret
.l85fd
	db #01,#0c,#19,#0a,#05,#08,#19,#09
	db #05,#07,#19,#06,#05,#05,#19,#04
	db #05,#03,#19,#02,#05,#01,#19,#00
	db #05,#00,#05,#00,#05,#00,#05,#00
	db #05,#00,#05,#00,#05,#00,#05,#00
	db #05,#00,#05,#00,#05,#00,#05,#00
	db #05,#00,#05
.l8630
	db #01,#0a,#01,#09,#01
	db #08,#01,#07,#01,#06,#01,#06,#01
	db #04,#01,#02,#01,#01,#01,#00,#01
	db #00,#01,#00,#01,#00,#01,#00,#01
	db #00,#01,#00,#01,#00,#01,#00,#01
	db #00,#01,#00,#01,#00,#01,#00,#01
	db #00,#01,#00,#01,#00,#01,#00,#01
	db #00,#01

;
init_music
;
	or a		; added by Megachur
	jp nz,l8fa3	; added by Megachur
.l8667
	ld a,#07
	ld (l8030),a
	ld (l8031),a
	ld a,#38
	ld (l802b),a
	ld a,#01
	ld (l8004),a
	ld (l8010),a
	ld (l801c),a
	ld a,#02
	ld (l802f),a
	ld (l802e),a
	ld hl,l8783
	ld (l8005),hl
	ld hl,l86cb
	ld (l8008),hl
	ld hl,l8902
	ld (l8011),hl
	ld hl,l8709
	ld (l8014),hl
	ld hl,l8c2d
	ld (l801d),hl
	ld hl,l8747
	ld (l8020),hl
	ld a,#00
	ld (l8003),a
	ld (l800f),a
	ld (l801b),a
	ld hl,l86c9
	ld (l800a),hl
	ld hl,l8707
	ld (l8016),hl
	ld hl,l8745
	ld (l8028),hl
	ret
.l86c9
	dw l8783
.l86cb
	dw l878c,l878c,l8790,l8790
	dw l87ae,l8790,l8790,l87ae
	dw l87e8,l87ec,l87ec,l87fe
	dw l87fe,l8790,l8790,l87ae
	dw l887c,l887c,l8880,l8880
	dw l8896,l8896,l88ca,l8896
	dw l8896,l87fe,l87fe,l88ca
	dw #0000,#0000
.l8707
	dw l8902
.l8709
	dw l8909,l8909,l890d,l890d
	dw l892b,l890d,l890d,l892b
	dw l8965,l8969,l8969,l897b
	dw l897b,l890d,l890d,l892b
	dw l8a81,l8a81,l8ac7,l8ac7
	dw l8b6d,l8b6d,l8bf3,l8b6d
	dw l8b6d,l897b,l897b,l8bf3
	dw #0000,#0000
.l8745
	dW l8c2d
.l8747
	dw l8c34,l8c34,l8c34,l8c34
	dw l8c76,l8c34,l8c34,l8c76
	dw l8cf8,l8d2e,l8d2e,l8d98
	dw l8d98,l8c34,l8c34,l8c76
	dw l8e6a,l8e6a,l8e8c,l8e8c
	dw l8ede,l8ede,l8f20,l8ede
	dw l8ede,l8d98,l8d98,l8f20
	dw #0000,#0000
.l8783
	db #ca,#02,#da,#01,#c9,#02,#00,#00
	db #00
.l878c
	db #c0,#00,#00,#00
.l8790
	db #21,#55,#03
	db #51,#09,#53,#03,#55,#21,#58,#03
	db #55,#09,#53,#03,#51,#21,#53,#03
	db #51,#09,#4c,#03,#48,#24,#4a,#0c
	db #00,#00,#00
.l87ae
	db #21,#56,#03,#55,#09,#53,#03,#51
	db #21,#4c,#03,#51,#09,#53,#03,#56
	db #24,#55,#0c,#53,#24,#51,#0c,#55
	db #21,#56,#03,#55,#09,#53,#03,#51
	db #21,#4c,#03,#51,#09,#53,#03,#56
	db #0c,#46,#0c,#4a,#0c,#51,#0c,#56
	db #0c,#48,#0c,#4c,#0c,#53,#0c,#58
	db #00,#00
.l87e8
	db #60,#00,#00,#00
.l87ec
	db #24,#55,#0c,#5a,#24,#56,#0c,#5a
	db #24,#5c,#0c,#58,#24,#5a,#0c,#00
	db #00,#00
.l87fe
	db #06,#4a,#06,#4c,#06,#51,#06,#53
	db #0c,#55,#0c,#5a,#06,#58,#06,#53
	db #06,#55,#06,#56,#03,#55,#03,#56
	db #03,#55,#03,#56,#0c,#55,#06,#55
	db #06,#4c,#06,#51,#06,#53,#03,#51
	db #03,#53,#03,#51,#03,#4c,#0c,#4a
	db #06,#4c,#06,#47,#06,#49,#06,#4a
	db #03,#49,#03,#4a,#03,#49,#03,#47
	db #0c,#45,#06,#4a,#06,#4c,#06,#51
	db #06,#53,#0c,#55,#0c,#5a,#06,#58
	db #06,#53,#06,#55,#06,#56,#03,#55
	db #03,#56,#03,#55,#03,#56,#0c,#55
	db #06,#55,#06,#4c,#06,#51,#06,#53
	db #03,#51,#03,#53,#03,#51,#03,#4c
	db #0c,#4a,#06,#4c,#06,#45,#06,#49
	db #06,#4c,#18,#4a,#00,#00
.l887c
	db #60,#00,#00,#00
.l8880
	db #2a,#51,#06,#4a,#2a,#4b,#06,#48
	db #2a,#4a,#06,#45,#2a,#48,#06,#44
	db #24,#45,#0c,#00,#00,#00
.l8896
	db #06,#4a,#06,#4c,#06,#51,#06,#53
	db #0c,#55,#06,#61,#06,#55,#0c,#53
	db #06,#5c,#06,#53,#0c,#51,#06,#5a
	db #06,#51,#06,#4a,#06,#4c,#06,#51
	db #06,#53,#0c,#55,#06,#61,#06,#55
	db #06,#5c,#06,#58,#06,#53,#06,#4c
	db #18,#4a,#00,#00
.l88ca
	db #0c,#4a,#0c,#52,#0c,#55,#0c,#58
	db #12,#56,#06,#55,#18,#53,#0c,#48
	db #0c,#4c,#0c,#53,#0c,#56,#12,#53
	db #06,#53,#18,#51,#0c,#45,#0c,#49
	db #0c,#4c,#0c,#53,#12,#51,#06,#4c
	db #18,#4a,#0c,#45,#0c,#49,#0c,#4c
	db #0c,#53,#24,#4a,#0c,#00,#00,#00
.l8902
	db #ca,#02,#da,#01,#00,#00,#00
.l8909
	db #c0,#00,#00,#00
.l890d
	db #21,#51,#03,#4a,#09,#4c,#03,#51
	db #21,#55,#03,#51,#09,#4c,#03,#48
	db #21,#4c,#03,#4a,#09,#48,#03,#43
	db #24,#41,#0c,#00,#00,#00
.l892b
	db #21,#4a,#03,#51,#09,#4c,#03,#4a
	db #21,#49,#03,#49,#09,#4c,#03,#53
	db #24,#4a,#0c,#48,#24,#4a,#0c,#51
	db #21,#4a,#03,#51,#09,#4c,#03,#4a
	db #21,#49,#03,#49,#09,#4c,#03,#53
	db #0c,#41,#0c,#46,#0c,#4a,#0c,#51
	db #0c,#43,#0c,#48,#0c,#4c,#0c,#53
	db #00,#00
.l8965
	db #60,#00,#00,#00
.l8969
	db #24,#4a
	db #0c,#55,#24,#53,#0c,#56,#24,#58
	db #0c,#53,#24,#51,#0c,#00,#00,#00
.l897b
	db #ca,#01,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#38,#03,#3c,#03,#43
	db #03,#48,#03,#4c,#03,#48,#03,#43
	db #03,#3c,#03,#41,#03,#45,#03,#48
	db #03,#51,#03,#55,#03,#51,#03,#48
	db #03,#45,#03,#45,#03,#49,#03,#4c
	db #03,#55,#03,#59,#03,#55,#03,#4c
	db #03,#49,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3c,#03,#44,#03,#47
	db #03,#4c,#03,#54,#03,#4c,#03,#47
	db #03,#44,#03,#45,#03,#49,#03,#41
	db #03,#55,#03,#59,#03,#55,#03,#4c
	db #03,#49,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#38,#03,#3c,#03,#43
	db #03,#48,#03,#4c,#03,#48,#03,#43
	db #03,#3c,#03,#41,#03,#45,#03,#48
	db #03,#51,#03,#55,#03,#51,#03,#48
	db #03,#45,#03,#45,#03,#49,#03,#4c
	db #03,#55,#03,#59,#03,#55,#03,#4c
	db #03,#49,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#45,#03,#49,#03,#4c
	db #03,#55,#03,#59,#03,#55,#03,#4c
	db #03,#49,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#ca,#02,#00,#00
.l8a81
	db #ca,#01,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#44,#03,#48,#03,#4b
	db #03,#54,#03,#58,#03,#54,#03,#4b
	db #03,#48,#03,#44,#03,#48,#03,#4b
	db #03,#54,#03,#58,#03,#54,#03,#4b
	db #03,#48,#ca,#02,#00,#00
.l8ac7
	db #ca,#01,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#44,#03,#48,#03,#4b
	db #03,#54,#03,#58,#03,#54,#03,#4b
	db #03,#48,#03,#44,#03,#48,#03,#4b
	db #03,#54,#03,#58,#03,#54,#03,#4b
	db #03,#48,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#44,#03,#48,#03,#4b
	db #03,#54,#03,#58,#03,#54,#03,#4b
	db #03,#48,#03,#44,#03,#48,#03,#4b
	db #03,#54,#03,#58,#03,#54,#03,#4b
	db #03,#48,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#ca,#02,#00,#00
.l8b6d
	db #ca,#01,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#43,#03,#46
	db #03,#4a,#03,#53,#03,#4a,#03,#46
	db #03,#43,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#03,#38,#03,#3c,#03,#43
	db #03,#48,#03,#4c,#03,#48,#03,#43
	db #03,#3c,#03,#3a,#03,#41,#03,#45
	db #03,#4a,#03,#51,#03,#4a,#03,#45
	db #03,#41,#ca,#02,#00,#00
.l8bf3
	db #ca,#02,#0c,#45,#0c,#4a,#0c,#52
	db #0c,#55,#12,#4a,#06,#48,#18,#46
	db #0c,#43,#0c,#48,#0c,#4c,#0c,#53
	db #12,#48,#06,#46,#18,#45,#0c,#3c
	db #0c,#45,#0c,#49,#0c,#4c,#12,#45
	db #06,#43,#18,#41,#0c,#3c,#0c,#45
	db #0c,#49,#0c,#4c,#24,#41,#0c,#00
	db #00,#00
.l8c2d
	db #ca,#01,#da,#01,#00,#00,#00
.l8c34
	db #09,#2a,#03,#2a,#f0,#09,#03,#28
	db #09,#2a,#03,#2a,#f0,#09,#03,#2c
	db #09,#21,#03,#31,#f0,#09,#03,#28
	db #09,#21,#03,#31,#f0,#09,#03,#2a
	db #09,#28,#03,#28,#f0,#09,#03,#26
	db #09,#28,#03,#28,#f0,#09,#03,#2c
	db #09,#2a,#03,#2a,#f0,#09,#03,#25
	db #09,#2a,#03,#2a,#f0,#09,#03,#25
	db #00,#00
.l8c76
	db #09,#23,#03,#23,#f0,#09,#03,#21
	db #09,#23,#03,#23,#f0,#09,#03,#26
	db #09,#25,#03,#35,#f0,#09,#03,#23
	db #09,#25,#03,#35,#f0,#09,#03,#2c
	db #09,#2a,#03,#2a,#f0,#09,#03,#28
	db #09,#2a,#03,#2a,#f0,#09,#03,#28
	db #09,#26,#03,#26,#f0,#09,#03,#21
	db #09,#26,#03,#26,#f0,#09,#03,#25
	db #09,#23,#03,#23,#f0,#09,#03,#21
	db #09,#23,#03,#33,#f0,#09,#03,#26
	db #09,#25,#03,#35,#f0,#09,#03,#23
	db #09,#25,#03,#35,#f0,#09,#03,#28
	db #09,#26,#03,#36,#f0,#09,#03,#21
	db #09,#26,#03,#36,#f0,#09,#03,#2a
	db #09,#28,#03,#28,#f0,#09,#03,#26
	db #09,#28,#03,#28,#f0,#09,#03,#2c
	db #00,#00
.l8cf8
	db #06,#2a,#03,#3a,#03,#35,#06,#2a
	db #03,#3a,#03,#35,#06,#2a,#03,#3a
	db #03,#35,#03,#2a,#03,#31,#03,#35
	db #03,#3a,#06,#2a,#03,#3a,#03,#35
	db #06,#2a,#03,#3a,#03,#35,#06,#2a
	db #03,#3a,#03,#35,#03,#2a,#03,#31
	db #03,#35,#03,#3a,#00,#00
.l8d2e
	db #06,#1a,#03,#2a,#03,#25,#06,#1a
	db #03,#2a,#03,#25,#06,#1a,#03,#2a
	db #03,#25,#03,#1a,#03,#21,#03,#25
	db #03,#2a,#06,#1a,#03,#2a,#03,#26
	db #06,#1a,#03,#2a,#03,#26,#06,#1a
	db #03,#2a,#03,#26,#03,#1a,#03,#23
	db #03,#26,#03,#2a,#06,#1a,#03,#2c
	db #03,#28,#06,#1a,#03,#2c,#03,#28
	db #06,#1a,#03,#2c,#03,#28,#03,#1a
	db #03,#23,#03,#28,#03,#2c,#06,#1a
	db #03,#2a,#03,#25,#06,#1a,#03,#2a
	db #03,#25,#06,#1a,#03,#2a,#03,#25
	db #03,#1a,#03,#21,#03,#25,#03,#2a
	db #00,#00
.l8d98
	db #06,#1a,#03,#2a,#03,#25,#06,#1a
	db #03,#2a,#03,#25,#06,#1a,#03,#2a
	db #03,#25,#03,#1a,#03,#21,#03,#25
	db #03,#2a,#06,#18,#03,#28,#03,#23
	db #06,#18,#03,#28,#03,#23,#06,#21
	db #03,#31,#03,#28,#03,#21,#03,#25
	db #03,#28,#03,#31,#06,#25,#03,#35
	db #03,#2c,#06,#25,#03,#35,#03,#2c
	db #06,#1a,#03,#2a,#03,#25,#03,#1a
	db #03,#21,#03,#25,#03,#2a,#06,#1c
	db #03,#2c,#03,#27,#06,#1c,#03,#2c
	db #03,#27,#06,#25,#03,#35,#03,#2c
	db #03,#25,#03,#29,#03,#2c,#03,#35
	db #06,#1a,#03,#2a,#03,#25,#06,#1a
	db #03,#2a,#03,#25,#06,#1a,#03,#2a
	db #03,#25,#03,#1a,#03,#21,#03,#25
	db #03,#2a,#06,#18,#03,#28,#03,#23
	db #06,#18,#03,#28,#03,#23,#06,#21
	db #03,#31,#03,#28,#03,#21,#03,#25
	db #03,#28,#03,#31,#06,#15,#03,#25
	db #03,#1c,#06,#15,#03,#25,#03,#1c
	db #06,#1a,#03,#2a,#03,#25,#03,#1a
	db #03,#21,#03,#25,#03,#2a,#06,#15
	db #03,#25,#03,#1c,#06,#15,#03,#25
	db #03,#1c,#06,#1a,#03,#2a,#03,#25
	db #03,#1a,#03,#21,#03,#25,#03,#2a
	db #00,#00
.l8e6a
	db #06,#1a,#06,#1a,#f0,#09,#03,#18
	db #06,#1a,#06,#1a,#f0,#09,#03,#25
	db #06,#24,#06,#24,#f0,#09,#03,#24
	db #06,#24,#06,#24,#f0,#09,#03,#1c
	db #00,#00
.l8e8c
	db #06,#1a,#06,#1a,#f0,#09,#03,#18
	db #06,#1a,#06,#1a,#f0,#09,#03,#25
	db #06,#24,#06,#24,#f0,#09,#03,#24
	db #06,#24,#06,#24,#f0,#09,#03,#1c
	db #06,#1a,#06,#1a,#f0,#09,#03,#18
	db #06,#1a,#06,#1a,#f0,#09,#03,#25
	db #06,#24,#06,#24,#f0,#09,#03,#24
	db #06,#24,#06,#24,#f0,#09,#03,#1c
	db #06,#1a,#06,#1a,#f0,#09,#03,#18
	db #06,#1a,#06,#1a,#f0,#09,#03,#18
	db #00,#00
.l8ede
	db #09,#1a,#03,#2a,#f0,#09,#03,#25
	db #09,#1a,#03,#1a,#f0,#09,#03,#1c
	db #09,#1a,#03,#1a,#f0,#09,#03,#23
	db #09,#1a,#03,#1a,#f0,#09,#03,#18
	db #09,#1a,#03,#2a,#f0,#09,#03,#25
	db #09,#1a,#03,#2a,#f0,#09,#03,#1a
	db #09,#18,#03,#18,#f0,#09,#03,#18
	db #09,#1a,#03,#1a,#f0,#09,#03,#18
	db #00,#00
.l8f20
	db #06,#1a,#06,#2a,#06,#1c,#06,#2c
	db #06,#22,#06,#32,#06,#1a,#06,#2a
	db #06,#23,#06,#33,#06,#25,#06,#35
	db #06,#26,#06,#36,#06,#23,#06,#33
	db #06,#18,#06,#28,#06,#1a,#06,#2a
	db #06,#1c,#06,#2c,#06,#18,#06,#28
	db #06,#21,#06,#31,#06,#23,#06,#33
	db #06,#25,#06,#35,#06,#21,#06,#31
	db #06,#25,#06,#35,#06,#25,#06,#35
	db #06,#25,#06,#35,#06,#25,#06,#35
	db #06,#1a,#06,#2a,#06,#1a,#06,#2a
	db #06,#1a,#06,#2a,#06,#1a,#06,#2a
	db #06,#25,#06,#35,#06,#25,#06,#35
	db #06,#25,#06,#35,#06,#25,#06,#35
	db #06,#1a,#06,#2a,#06,#1a,#06,#2a
	db #06,#1a,#06,#2a,#06,#1a,#06,#2a
	db #00,#00,#00
;
;.init_music
.l8fa3
;
	ld a,#07
	ld (l8030),a
	ld (l8031),a
	ld a,#38
	ld (l802b),a
	ld a,#01
	ld (l8004),a
	ld (l8010),a
	ld (l801c),a
	ld a,#02
	ld (l802f),a
	ld (l802e),a
	ld hl,l902f
	ld (l8005),hl
	ld hl,l9007
	ld (l8008),hl
	ld hl,l90b2
	ld (l8011),hl
	ld hl,l9015
	ld (l8014),hl
	ld hl,l9173
	ld (l801d),hl
	ld hl,l9023
	ld (l8020),hl
	ld a,#00
	ld (l8003),a
	ld (l800f),a
	ld (l801b),a
	ld hl,l9005
	ld (l800a),hl
	ld hl,l9013
	ld (l8016),hl
	ld hl,l9021
	ld (l8028),hl
	ret
.l9005
	dw l902f
.l9007
	dw l9038,l9052,l906c,l906c
	dw #0000,#0000
.l9013
	dw l90b2
.l9015
	dw l90b9,l90d3,l90ed,l90ed
	dw #0000,#0000
.l9021
	dw l9173
.l9023
	dw l917a,l91bc,l91fe,l91fe
	dw #0000,#0000
.l902f
	db #ca,#02,#da,#01,#c9,#02,#00,#00
	db #00
.l9038
	db #20,#55,#18,#51,#04,#53,#04,#55
	db #20,#53,#20,#4b,#18,#51,#08,#4a
	db #18,#4c,#08,#48,#30,#4a,#10,#00
	db #00,#00
.l9052
	db #20,#55,#18,#51,#04,#53,#04,#55
	db #20,#53,#20,#4b,#18,#51,#08,#4a
	db #18,#4c,#08,#48,#30,#55,#10,#00
	db #00,#00
.l906c
	db #08,#58,#08,#55,#08,#53,#08,#51
	db #08,#58,#08,#55,#08,#53,#08,#51
	db #08,#56,#08,#53,#08,#51,#08,#4b
	db #08,#56,#08,#53,#08,#51,#08,#4b
	db #08,#54,#08,#51,#08,#4b,#08,#49
	db #08,#54,#08,#51,#08,#4b,#08,#49
	db #08,#53,#08,#4b,#08,#48,#08,#43
	db #08,#53,#08,#4b,#08,#48,#08,#43
	db #30,#51,#10,#00,#00,#00
.l90b2
	db #ca,#02,#da,#01,#00,#00,#00
.l90b9
	db #20,#51,#18,#48,#04,#48,#04,#48
	db #20,#4b,#20,#46,#18,#4a,#08,#45
	db #18,#48,#08,#43,#30,#41,#10,#00
	db #00,#00
.l90d3
	db #20,#51,#18,#48,#04,#48,#04,#48
	db #20,#4b,#20,#46,#18,#4a,#08,#45
	db #18,#48,#08,#43,#30,#51,#10,#00
	db #00,#00
.l90ed
	db #04,#41,#04,#48,#04,#45,#04,#48
	db #04,#41,#04,#48,#04,#45,#04,#48
	db #04,#41,#04,#48,#04,#45,#04,#48
	db #04,#41,#04,#48,#04,#45,#04,#48
	db #04,#3b,#04,#46,#04,#43,#04,#46
	db #04,#3b,#04,#46,#04,#43,#04,#46
	db #04,#3b,#04,#46,#04,#43,#04,#46
	db #04,#3b,#04,#46,#04,#43,#04,#46
	db #04,#39,#04,#44,#04,#41,#04,#44
	db #04,#39,#04,#44,#04,#41,#04,#44
	db #04,#39,#04,#44,#04,#41,#04,#44
	db #04,#39,#04,#44,#04,#41,#04,#44
	db #04,#38,#04,#43,#04,#3b,#04,#43
	db #04,#38,#04,#43,#04,#3b,#04,#43
	db #04,#38,#04,#43,#04,#3b,#04,#43
	db #04,#38,#04,#43,#04,#3b,#04,#43
	db #30,#45,#10,#00,#00,#00
.l9173
	db #ca,#02,#da,#01,#00,#00,#00
.l917a
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#2b,#08,#2b,#f0,#08,#08,#26
	db #08,#2b,#08,#2b,#f0,#08,#08,#26
	db #08,#2a,#08,#2a,#f0,#08,#08,#25
	db #08,#28,#08,#28,#f0,#08,#08,#23
	db #08,#2a,#08,#2a,#f0,#08,#08,#25
	db #08,#2a,#08,#2a,#f0,#08,#08,#25
	db #00,#00
.l91bc
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#2b,#08,#2b,#f0,#08,#08,#26
	db #08,#2b,#08,#2b,#f0,#08,#08,#26
	db #08,#2a,#08,#2a,#f0,#08,#08,#25
	db #08,#28,#08,#28,#f0,#08,#08,#23
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #00,#00
.l91fe
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #08,#21,#08,#21,#f0,#08,#08,#28
	db #00,#00,#00

	ld a,#07
	ld c,#b1
	call l9262
	ld bc,#0300
.l925b
	inc a
	call l9262
	djnz l925b
	ret
.l9262
	push bc
	push af
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	pop af
	pop bc
	ret
;	push bc         ;
;	ld b,#f5
;.l9287
;	in a,(c)
;	rra
;	jp nc,l9287
;	pop bc
;	ret

; 8667 8fa3 init theme 1 & 2
; 8243 play

;org #a08a
;call #a13b
;call #8667	; init ?
;.la090
;call #9284
;call #8243
;call #9299
;ld hl,#928f
;ld b,#09
;.la09e
;ld a,(hl)
;cp #ff
;jr nz,la0a8
;inc hl
;djnz la09e
;jr la090

.game_name
	db "Great Gurianos",0
.game_year
	db "1987",0
.game_publisher
	db "Hit Pak",0
.music_author
	db "David Perry",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
